home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / tex-k / tex-k-archive.past / tex-k-archive.gz / tex-k-archive / 000852_andreas@mpa-garching.mpg.de_Thu Aug 18 19:40:15 1994.msg < prev    next >
Internet Message Format  |  1994-10-11  |  6KB
  1. Received: from ibm-1.mpa-garching.mpg.de by cs.umb.edu with SMTP id AA27920
  2.   (5.65c/IDA-1.4.4 for <tex-k@cs.umb.edu>); Thu, 18 Aug 1994 11:39:25 -0400
  3. Received: (andreas@localhost) by ibm-1.MPA-Garching.MPG.DE (8.6.8.1/8.6) id RAA79041; Thu, 18 Aug 1994 17:40:15 +0200
  4. Date: Thu, 18 Aug 1994 17:40:15 +0200
  5. From: Andreas Schott <andreas@mpa-garching.mpg.de>
  6. Message-Id: <199408181540.RAA79041@ibm-1.MPA-Garching.MPG.DE>
  7. To: tex-k@cs.umb.edu
  8. Subject: Patch for tangle and weave
  9. Reply-To: andreas@mpa-garching.mpg.de (Andreas Schott)
  10.  
  11. Hi folks,
  12.  
  13. believe it or not, I'm still alive and want to contribute a bit.
  14. The following patches to tangle.ch, tangleboot.p, tangleboot.c
  15. and weave.ch are quite old. I think I have them submitted a long
  16. time ago, but cannot find them on the server. But I think they
  17. are still useful--for me even necessary.
  18.  
  19. The problem with the tangle-program is, that if I specify a path
  20. for the webfile-name, tangle wants to put the pascal-file and the
  21. pool-file into the directory, where the web-file is located, instead
  22. of creating them in the current directory. This is an unexpected
  23. behaviour and is failing for web-files in read-only file-systems.
  24. The same holds for weave and the tex-file. Therefore a patch for
  25. weave.ch is included, too.
  26.  
  27. Andreas Schott.
  28.  
  29. *** TeXorig/web2c-6.1/web2c/web/tangle.ch    Mon Mar 29 15:59:56 1993
  30. --- TeXmake/web2c-6.1/web2c/web/tangle.ch    Fri Apr  8 16:00:00 1994
  31. ***************
  32. *** 575,580 ****
  33. --- 575,584 ----
  34.   The end of a file name is marked with a |' '|, the convention assumed by 
  35.   the |reset| and |rewrite| procedures.
  36.   
  37. + The |pascal_file_name| and |pool_file_name| are choosen from the
  38. + |web_name| so that they are created in the current directory and
  39. + not in the directory, where the |web_name| points to.
  40. + 
  41.   @<Get |web_name|...@>=
  42.   begin
  43.     dot_pos := -1;
  44. ***************
  45. *** 599,607 ****
  46.       web_name[dot_pos+4] := ' ';
  47.     end;
  48.   
  49.     for i := 1 to dot_pos
  50.     do begin
  51. !     c := web_name[i];
  52.       pascal_file_name[i] := c;
  53.       pool_file_name[i] := c;
  54.     end;
  55. --- 603,614 ----
  56.       web_name[dot_pos+4] := ' ';
  57.     end;
  58.   
  59. +   if slash_pos = -1 then slash_pos := 0;
  60. +   dot_pos := dot_pos - slash_pos;
  61. + 
  62.     for i := 1 to dot_pos
  63.     do begin
  64. !     c := web_name[i+slash_pos];
  65.       pascal_file_name[i] := c;
  66.       pool_file_name[i] := c;
  67.     end;
  68. *** TeXorig/web2c-6.1/web2c/web/tangleboot.p    Mon Mar 29 16:49:42 1993
  69. --- TeXmake/web2c-6.1/web2c/web/tangleboot.p    Fri Apr  8 16:01:00 1994
  70. ***************
  71. *** 68,74 ****
  72.   if(dotpos=-1)or(dotpos<slashpos)then begin dotpos:=i;
  73.   webname[dotpos]:='.';webname[dotpos+1]:='w';webname[dotpos+2]:='e';
  74.   webname[dotpos+3]:='b';webname[dotpos+4]:=' ';end;
  75. ! for i:=1 to dotpos do begin c:=webname[i];pascalfilename[i]:=c;
  76.   poolfilename[i]:=c;end;pascalfilename[dotpos+1]:='p';
  77.   pascalfilename[dotpos+2]:=' ';poolfilename[dotpos+1]:='p';
  78.   poolfilename[dotpos+2]:='o';poolfilename[dotpos+3]:='o';
  79. --- 68,75 ----
  80.   if(dotpos=-1)or(dotpos<slashpos)then begin dotpos:=i;
  81.   webname[dotpos]:='.';webname[dotpos+1]:='w';webname[dotpos+2]:='e';
  82.   webname[dotpos+3]:='b';webname[dotpos+4]:=' ';end;
  83. ! if slashpos = -1 then slashpos:=0;dotpos:=dotpos-slashpos;
  84. ! for i:=1 to dotpos do begin c:=webname[i+slashpos];pascalfilename[i]:=c;
  85.   poolfilename[i]:=c;end;pascalfilename[dotpos+1]:='p';
  86.   pascalfilename[dotpos+2]:=' ';poolfilename[dotpos+1]:='p';
  87.   poolfilename[dotpos+2]:='o';poolfilename[dotpos+3]:='o';
  88. *** TeXorig/web2c-6.1/web2c/web/tangleboot.c    Mon Mar 29 16:50:02 1993
  89. --- TeXmake/web2c-6.1/web2c/web/tangleboot.c    Fri Apr  8 16:02:00 1994
  90. ***************
  91. *** 168,177 ****
  92.           webname [ dotpos + 3 ] = 'b' ; 
  93.           webname [ dotpos + 4 ] = ' ' ; 
  94.         } 
  95.         {register integer for_end; i = 1 ; for_end = dotpos ; if ( i <= 
  96.         for_end) do 
  97.           {
  98. !           c = webname [ i ] ; 
  99.             pascalfilename [ i ] = c ; 
  100.             poolfilename [ i ] = c ; 
  101.           } 
  102. --- 168,180 ----
  103.           webname [ dotpos + 3 ] = 'b' ; 
  104.           webname [ dotpos + 4 ] = ' ' ; 
  105.         } 
  106. +       if ( slashpos == -1 )
  107. +         slashpos = 0 ;
  108. +       dotpos = dotpos - slashpos ;
  109.         {register integer for_end; i = 1 ; for_end = dotpos ; if ( i <= 
  110.         for_end) do 
  111.           {
  112. !           c = webname [ i + slashpos ] ; 
  113.             pascalfilename [ i ] = c ; 
  114.             poolfilename [ i ] = c ; 
  115.           } 
  116. *** TeXorig/web2c-6.1/web2c/web/weave.ch    Sun Feb 21 12:47:35 1993
  117. --- TeXmake/web2c-6.1/web2c/web/weave.ch    Fri Apr  8 16:03:00 1994
  118. ***************
  119. *** 476,481 ****
  120. --- 476,485 ----
  121.   The end of a file name is marked with a |' '|, the convention assumed by 
  122.   the |reset| and |rewrite| procedures.
  123.   
  124. + The |tex_file_name| is choosen from the
  125. + |web_file_name| so that it is created in the current directory and
  126. + not in the directory, where the |web_file_name| points to.
  127. + 
  128.   @<Get |web_file_name|...@>=
  129.   begin
  130.     dot_pos := -1;
  131. ***************
  132. *** 500,507 ****
  133.       web_file_name[dot_pos+4] := ' ';
  134.     end;
  135.   
  136.     for i := 1 to dot_pos do
  137. !     tex_file_name[i] := web_file_name[i];
  138.   
  139.     tex_file_name[dot_pos+1] := 't';
  140.     tex_file_name[dot_pos+2] := 'e';
  141. --- 504,514 ----
  142.       web_file_name[dot_pos+4] := ' ';
  143.     end;
  144.   
  145. +   if slash_pos = -1 then slash_pos := 0;
  146. +   dot_pos := dot_pos - slash_pos;
  147. + 
  148.     for i := 1 to dot_pos do
  149. !     tex_file_name[i] := web_file_name[i+slash_pos];
  150.   
  151.     tex_file_name[dot_pos+1] := 't';
  152.     tex_file_name[dot_pos+2] := 'e';